(de javaWhat SimpleClass
  (let SimpleClass (car SimpleClass)
    (make
      (for Method (what
                    (pack SimpleClass ".@") )
        (when (val Method)
          (link Method) ) )
      (for Method (what ".@>")
        (when (= SimpleClass
                (caar
                  (eval Method) ) )
          (link Method) ) ) ) ) )